home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
Superbase4_d2.adf
/
Trading
/
STOCKS.SBD
< prev
next >
Wrap
Text File
|
1992-08-05
|
3KB
|
51 lines
Symbol ;TXT IXD ;10 ;0 ;7 ;
Exchange ;TXT ;16 ;0 ;42 ;
Stock_Key ;VTX CLC RDO IXD ;27 ;1 ;4 ;>
Exchange.STOCKS + " " + Symbol.STOCKS
Company Name ;TXT ;36 ;2 ;1 ;
Sector ;TXT IXD ;30 ;3 ;7 ;
Description ;TXT ;40 ;4 ;2 ;
Stock_Type ;TXT ;16 ;8 ;3 ;
Performance ;TXT ;40 ;5 ;2 ;
Market ;TXT ;20 ;1 ;44 ;
Currency ;TXT VAL IXD ;3 ;8 ;42 ;>
LOOKUP (Currency.STOCKS,Currency.CURRENCY) ELSE REQUEST "Currency not found - Select another currency","",20,,Currency.STOCKS,40,Currency.CURRENCY,Description.CURRENCY
Nominal Stock ;NUM ;,9999999999. ;9 ;0 ;
Current_Stock ;NUM VAL ;,9999999999. ;9 ;37 ;>
Current_Stock.STOCKS <= Nominal Stock.STOCKS
Price Date ;DAT CON ;mmm dd,yy ;10 ;3 ;>
TODAY
Price Time ;TIM CON ;hh:mm am ;10 ;40 ;>
NOW
Price Asked ;NUM ;9999.0000 ;11 ;2 ;
Price Bid ;NUM ;9999.0000 ;11 ;41 ;
Price Middle ;NUM CLC RDO ;9999.0000 ;12 ;1 ;>
(Price Asked.STOCKS + Price Bid.STOCKS) / 2
Cap Million ;NUM CLC RDO ;,99999.999 ;22 ;39 ;>
LOOKUP (Currency.STOCKS,Currency.CURRENCY) ? Current_Stock.STOCKS * Price Middle.STOCKS / (1000000 * Factor.CURRENCY):Cap Million.STOCKS
Year_High ;NUM ;9999.0000 ;13 ;4 ;
Date of High ;DAT ;mmm dd,yy ;13 ;38 ;
Year_Low ;NUM ;9999.0000 ;14 ;5 ;
Date of Low ;DAT ;mmm dd,yy ;14 ;39 ;
FYE_month ;NMI VAL ;00. ;21 ;0 ;>
FYE_month.STOCKS > 0 AND FYE_month.STOCKS < 13
Last_Net Profit;NUM ;-,9999999999. ;21 ;35 ;
PE ratio ;NMI CLC RDO ;-999. ;22 ;1 ;>
(Cap Million.STOCKS * 1000000) / Last_Net Profit.STOCKS
Address_1 ;TXT ;30 ;16 ;0 ;
Address_2 ;TXT ;30 ;17 ;0 ;
City ;TXT ;30 ;18 ;5 ;
State ;TXT ;30 ;19 ;4 ;
Zip Code ;TXT ;10 ;19 ;42 ;
Country ;TXT IXD ;24 ;20 ;2 ;
Telephone ;TXT ;20 ;20 ;41 ;
Comments ;TXT ;40 ;6 ;5 ;
FYE Stock ;NUM ;,9999999999. ;23 ;0 ;
Last_Earnings ;VNU CLC RDO ;-999.9999 ;23 ;37 ;>
LOOKUP (Currency.STOCKS,Currency.CURRENCY) ? (Last_Net Profit.STOCKS * Factor.CURRENCY) / FYE Stock.STOCKS:Last_Earnings.STOCKS
Symbol
Exchange
Stock_Type
Cap Million